*** empty log message ***

diff --git a/lisp/net/dbus.el b/lisp/net/dbus.el
index 159fcb668ddf544a7020aac3a27865dd854155df..273d531ed3525256245e30993ce613a3d158a93f 100644 (file)
--- a/lisp/net/dbus.el
+++ b/lisp/net/dbus.el
@@ -836,8 +836,8 @@ name of the property, and its value.  If there are no properties,
 ;; descriptors to input_wait_mask, in order to detect incoming
 ;; messages immediately.
 (dbus-ignore-errors
-  (dbus-init-bus :system)
   (when (getenv "DBUS_SESSION_BUS_ADDRESS")
+    (dbus-init-bus :system)
     (dbus-init-bus :session)))
 
 (provide 'dbus)